home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS064.dsk / HOUSE SALES.bas < prev    next >
BASIC Source File  |  2012-02-16  |  7KB  |  183 lines
  1. 2  REM  A REAL PROPERTY PROFIT GUIDE
  2. 4  REM  BY FRANK J. DERFLER JR.
  3. 5  REM  1979
  4. 6  REM  KILOBAUD,NOV.'79, PP.112,113
  5. 10  HOME 
  6. 20  PRINT  TAB( 7);"BOY, DID I MAKE A KILLING!!"
  7. 30  PRINT : PRINT 
  8. 40  PRINT "THIS PROGRAM WILL HELP YOU TO DETER-"
  9. 50  PRINT "MINE YOUR ACTUAL PROFIT OR LOSS FROM "
  10. 60  PRINT "THE SALE OF A HOUSE OR PROPERTY. IT "
  11. 65  PRINT "WILL ASK YOU MANY DIFFERENT QUESTIONS."
  12. 70  PRINT "IN SOME CASES IT WILL HELP YOU TO"
  13. 80  PRINT "COMPUTE THE INFORMATION REQUESTED. "
  14. 90  PRINT "HOPE YOU MADE A BUNDLE!": GOSUB 1650
  15. 100  GOSUB 1660
  16. 110  PRINT "WHAT PRICE DID YOU SELL YOUR PROPERTY"
  17. 120  INPUT "FOR? (ENTER 0 FOR HELP) ";S
  18. 130  PRINT : PRINT "WHAT WAS THE AMOUNT OF THE ORIGINAL"
  19. 140  INPUT "MORTGAGE OR LOAN? ";L
  20. 150  PRINT : PRINT "HOW MANY YEARS WAS THE ORIGINAL "
  21. 155  INPUT "MORTGAGE OR LOAN FOR? ";Y3
  22. 160  IF S >0  THEN  GOTO 240
  23. 170  GOSUB 1660: PRINT "          SELLING PRICE"
  24. 180  PRINT "THE SELLING PRICE DEPENDS UPON MANY"
  25. 190  PRINT "FACTORS, BUT IF YOU ARE PROJECTING "
  26. 195  PRINT "INTO THE FUTURE, YOU MUST ASSUME SOME"
  27. 200  PRINT "ANNUAL APPRECIATION RATE. WHAT PERCENT"
  28. 210  INPUT "PER YEAR WILL YOUR PROPERTY APPRECIATE?";A
  29. 230 A = A/100
  30. 240  PRINT : INPUT "WHAT WAS YOUR DOWN PAYMENT? ";D
  31. 260  PRINT : PRINT "HOW MANY YEARS AND MONTHS DID YOU"
  32. 265  INPUT "OWN? (Y,M) ";Y,M
  33. 270 Y = (Y *12 +M)/12: IF S >0  THEN  GOTO 290
  34. 280 S = ((S +A) ^Y) *(L +D)
  35. 290  GOSUB 1660
  36. 300  PRINT "YOUR SELLING PRICE IS :$";S
  37. 310  REM  DOLLAR AMOUNTS NEED TO BE FORMATTED
  38. 320 G = S -(L +D)
  39. 330  PRINT 
  40. 340  PRINT " YOUR CAPITAL GAIN (ORIGINAL PRICE"
  41. 350  PRINT " MINUS SELLING PRICE) IS: $";G
  42. 360  GOSUB 1650: GOSUB 1660
  43. 370  PRINT "NOW WE WILL DETERMINE WHAT IT COST TO"
  44. 380  PRINT "OWN THAT PROPERTY.": PRINT 
  45. 390  PRINT "PROPERTY TAX: EITHER PROVIDE A YEARLY"
  46. 400  PRINT "AVERAGE FROM YOUR RECORDS OR ESTIMATE"
  47. 410  INPUT "YOUR YEARLY PAYMENT: ";T2: PRINT 
  48. 420  PRINT "WHAT IS THE INTEREST RATE ON YOUR "
  49. 430  INPUT "MORTGAGE? ";I
  50. 440 I = 1/12/100:Y1 =  INT(Y *12):L5 = L
  51. 450 Q1 = 1/(1 +I) ^(12 *Y3)
  52. 460 Q2 = LS *I/(1 -Q1)
  53. 470 Q2 =  INT(Q2 *100 +.5)/100
  54. 480  FOR X5 = 1 TO Y1
  55. 490 U2 =  INT(L5 *I *100 +.5)/100
  56. 500 U3 = Q2 -U2
  57. 510 L5 = L5 -U3:I6 = I6 +U2
  58. 520  NEXT :I9 = I6/Y
  59. 530  PRINT " YOUR INTEREST PAID IS: $";I6
  60. 540  GOSUB 1650: GOSUB 1660
  61. 550  PRINT "PLEASE SELECT YOUR APPROXIMATE "
  62. 560  PRINT "ADJUSTED GROSS INCOME FOR TAX PURPOSES"
  63. 565  PRINT "FROM THE FOLLOWING: "
  64. 570  PRINT "  1.  $ 5,000 TO $10,000"
  65. 580  PRINT "  2.  $10,000 TO $15,000"
  66. 590  PRINT "  3.  $15,000 TO $20,000"
  67. 600  PRINT "  4.  $20,000 TO $25,000"
  68. 610  PRINT "  5.  $25,000 TO $30,000"
  69. 620  PRINT "  6.  $30,000 TO $35,000"
  70. 630  PRINT "  7.  $35,000 TO $40,000"
  71. 640  PRINT : PRINT "TYPE IN THE NUMBER OF THE BRACKET YOU"
  72. 650  INPUT "ARE IN ";Z1
  73. 660  PRINT : INPUT "DO YOU FILE SINGLE(1) OR JOINTLY(2)? ";Z2
  74. 670  IF Z2 = 2  THEN  GOTO 760
  75. 680  ON Z1 GOTO 690,700,710,720,730,740,750
  76. 690 T1 = .04:T3 = .23: GOTO 840
  77. 700 T1 = .10:T3 = .28: GOTO 840
  78. 710 T1 = .17:T3 = .33: GOTO 840
  79. 720 T1 = .24:T3 = .39: GOTO 840
  80. 730 T1 = .32:T3 = .42: GOTO 840
  81. 740 T1 = .40:T3 = .46: GOTO 840
  82. 750 T1 = .48:T3 = .49: GOTO 840
  83. 760  ON Z1 GOTO 770,780,790,800,810,820,830
  84. 770 T1 = .05:T3 = .19: GOTO 840
  85. 780 T1 = .08:T3 = .22: GOTO 840
  86. 790 T1 = .11:T3 = .26: GOTO 840
  87. 800 T1 = .15:T3 = .32: GOTO 840
  88. 810 T1 = .20:T3 = .36: GOTO 840
  89. 820 T1 = .25:T3 = .39: GOTO 840
  90. 830 T1 = .30:T3 = .44: GOTO 840
  91. 840  PRINT : INPUT "DO YOU PAY STATE INCOME TAX? (Y OR N)";B$
  92. 850  IF B$ = "Y"  THEN T1 = T1 +(T1 *.3)
  93. 860 C2 = ((1 -T1) *I9) +((1 -T1) *T2)
  94. 870  GOSUB 1660
  95. 880  PRINT "DO YOU KNOW WHAT INSURANCE ON THIS"
  96. 890  INPUT "PROPERTY COSTS PER YEAR?(Y OR N)";C$
  97. 910  IF C$ = "N"  THEN  GOTO 940
  98. 920 : INPUT "INSURANCE COST PER YEAR: ";N
  99. 930  GOTO 960
  100. 940 N = S *.002
  101. 950  PRINT "AN ESTIMATE, BASED ON SELLING PRICE "
  102. 955  PRINT "IS $";N: PRINT 
  103. 960  PRINT "CAN YOU PRIVIDE AN ESTIMATE OF THE"
  104. 970  PRINT "ANNUAL AMOUNT SPENT ON UPKEEP OF THE"
  105. 980  INPUT "PROPERTY? (Y OR N)";D$: IF D$ = "N"  THEN  GOTO 1010
  106. 990  INPUT "ANNUAL MAINTENANCE COST: ";K
  107. 1000  GOTO 1030
  108. 1010 K = S *.005
  109. 1020  PRINT "YEARLY ESTIMATE, BASED ON SELLING "
  110. 1030  PRINT "PRICE: $";K: PRINT 
  111. 1035  INPUT "CAN YOU ESTIMATE CLOSING COSTS? (Y/N)";D$
  112. 1040  IF D$ = "N"  THEN  GOTO 1070
  113. 1050  INPUT "CLOSING COSTS: $";C1
  114. 1060  GOTO 1100
  115. 1070 C1 = S *.01
  116. 1080  PRINT "ESTIMATE, BASED ON SELLING PRICE IS: ": PRINT "$";C1
  117. 1090  GOSUB 1650: GOSUB 1660
  118. 1100  PRINT : INPUT "DID YOU SELL THROUGH A REALTOR? (Y/N)";G$
  119. 1110  IF G$ = "N"  THEN  GOTO 1180
  120. 1120  INPUT "DO YOU KNOW THE REALTOR'S PERCENTAGE?";E$
  121. 1130  IF E$ = "N"  THEN  GOTO 1160
  122. 1140  INPUT "REALTOR'S PERCENTAGE: $";F3
  123. 1150 F = F3/100: GOSUB 1660: GOTO 1190
  124. 1160 F = .065:F1 = S *F
  125. 1170  PRINT "ESTIMATE THE FEE WILL BE: $";F1
  126. 1180  GOSUB 1650: GOSUB 1660
  127. 1190  PRINT "ENTER ANY OTHER COSTS SUCH AS POINTS TO"
  128. 1200  PRINT "SELLER, FIX UP, LANDSCAPE, ADVERTISING"
  129. 1210  INPUT "ETC.: $";P
  130. 1215 C4 = (F *S) +P:C3 = K +N
  131. 1220 E = Y *(C2 +C3) +C1 +C4:Z = G -E
  132. 1230  GOSUB 1660
  133. 1240  PRINT : PRINT "     IT COST YOU $";E
  134. 1250  PRINT "     TO OWN THAT PROPERTY."
  135. 1260  PRINT : PRINT "     BASED ON A SELLING PRICE OF": PRINT "     $";S
  136. 1270  PRINT "   YOUR NET RETURN IS: $";Z
  137. 1280  PRINT : PRINT "WOULD YOU LIKE TO COMPARE THIS TO THE"
  138. 1290  INPUT "ALTERNATIVE OF RENTING? ";A$
  139. 1293  IF A$ = "N"  THEN  PRINT "TOO BAD, WE'LL LOOK ANYWAY!"
  140. 1300  GOSUB 1650: GOSUB 1660
  141. 1310  PRINT  TAB( 10);"COMPARISON TO RENTING"
  142. 1320  PRINT : PRINT "WHAT WOULD IT COST PER MONTH TO RENT "
  143. 1330  INPUT "OR LEASE A SIMILAR PROPERTY? ";R1
  144. 1340 M1 =  INT(E/Y1): IF R1 <M1  THEN  GOTO 1380
  145. 1350 D6 = R1 -M1
  146. 1360  PRINT 
  147. 1370  PRINT "YOU ARE $";D6;" A MONTH AHEAD BY"
  148. 1375  PRINT "OWNING.": END 
  149. 1380 D1 = M1 -R1: PRINT "THAT FEE IS $";D1;" LESS THAN"
  150. 1390  PRINT "YOUR AVERAGE MONTHLY COST OF OWNING."
  151. 1400  PRINT : PRINT "WHAT IS THE HIGHEST PER CENT OF RETURN"
  152. 1410  PRINT "YOU WOULD EXPECT FROM YOUR TYPICAL "
  153. 1420  PRINT "INVESTMENT (SAVINGS, DEPOSIT CERTIFI-"
  154. 1430  INPUT "CATE, BOND, ETC.)? ";R3
  155. 1440 R3 = R3/Y1/100
  156. 1445  REM  SOME OF THE SIGNS MAY BE WRONG, BECAUSE THEY WERE LEFT OUT OF THE MAGAZINE LISTING OF THE PROGRAM
  157. 1450 D3 = D *(1 +R3) *(4 *Y):D3 =  INT(D3 *100 +.5)/100
  158. 1460 D4 = D1 *((1 +R3) *(12 *Y) -1)/R3:D4 =  INT(D4 *100 +.5)/100
  159. 1470 D5 = D4 +D3
  160. 1480  GOSUB 1660
  161. 1490  PRINT "AT THE INTEREST RATE YOU SPECIFIED,"
  162. 1500  PRINT "YOUR DOWNPAYMENT AND MONTHLY INVEST-"
  163. 1510  PRINT "MENTS WOULD HAVE GROWN TO: $";D5
  164. 1520 R7 = R1 *Y1
  165. 1530  PRINT : PRINT "YOUR COST FOR RENT WOULD HAVE BEEN;"
  166. 1540  GOSUB 1650: GOSUB 1660
  167. 1550  PRINT "OWNING AND SELLING BROUGHT YOU "
  168. 1560  PRINT "$";Z +D;" CASH IN HAND."
  169. 1570  PRINT 
  170. 1580 Z6 = D5 -R7
  171. 1600 F3 = F0 +F1 +G2 +D -R7
  172. 1610  PRINT "RENTING AND INVESTING BROUGHT YOU:"
  173. 1620  PRINT "$";Z6;" OR (IF THE INTEREST WAS "
  174. 1630  PRINT "FULLY TAXED): $";F3
  175. 1635  PRINT "CASH IN HAND."
  176. 1636  PRINT : PRINT : PRINT "THAT'S ALL THE COMPARING I AM PREPARED"
  177. 1637  PRINT "TO SHOW YOU! I HOPE I HAVE BEEN OF ": PRINT "SOME ASSISTANCE. ": PRINT : PRINT  TAB( 17);"THE END"
  178. 1640  END 
  179. 1650  PRINT : INPUT "PRESS RETURN TO CONTINUE ";A$: RETURN 
  180. 1660  HOME : FOR Z3 = 1 TO 40: PRINT "$";: NEXT Z3: PRINT : PRINT 
  181. 1670  RETURN 
  182. 11535  PRINT "$";R7
  183. 11590 F0 = D4 -(D1 *Y1):F1 = D3 -D:F2 = (F0 +F1) -((F0 +F1) *(T3 *Y))